home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / EX-III-1.TRA < prev    next >
Text File  |  1990-01-24  |  1KB  |  41 lines

  1. 0002          0 Origin to define I as 3
  2. I             0
  3. 0009          0 Re-origin past index registers
  4. STRT     RDMAX  Read in number of values
  5.          LDZERO Load zero
  6.          STI    Initialize I
  7. READ    3RDX    Read a X(I)
  8.          LDI    Load I
  9.          ADONE  Add 1
  10.          STI    Save new I
  11.          SUMAX  Subtract MAX
  12.          BNREAD If I < MAX go back to READ
  13.          LDZERO 
  14.          STI    Initialize I
  15.          STS    Initialize S
  16.          STS2   Initialize S2
  17. LOOP    3LDX    Load X(I)
  18.          ADS    Add S
  19.          STS    Store at S
  20.         3LDX    Load X(I)
  21.         3MUX    Multiply by X(I)
  22.          ADS2   add S2
  23.          STS2   Store at S2
  24.          LDI    Increment I
  25.          ADONE
  26.          STI
  27.          SUMAX  Test for done
  28.          BNLOOP Repeat loop if not done
  29.          PCMAX  Display MAX, S, S2
  30.          HT0000 Halt
  31. MAX           0 Reserve read area for MAX
  32. S             0 Put S here for output
  33. S2            0 Put S2 here for output
  34.               0 Reserve 2 locations for read and print
  35.               0
  36. ZERO          0 Constant ZERO
  37. ONE           1 Constant 1
  38. 0999          0 Re-origin for array X
  39. X             0 Starts X at 1000, can use rest of memory
  40.          ENSTRT End-of-code
  41.